unit UGauge;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Gauges, StdCtrls, ComCtrls, Buttons,  ActnList,
  ImgList, ExtCtrls, Menus, PropFilerEh, PropStorageEh, System.Actions, System.ImageList, frxClass;

type
  TfrmGauge = class(Tform)
    Gauge1: TGauge;
    labMessage: TLabel;
    btnCancel: TBitBtn;
    labCount: TLabel;
    Animate1: TAnimate;
    procedure FormShow(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    StopFlag: Boolean;
    { Public declarations }
  end;


var
  frmGauge: TfrmGauge;

implementation

Uses Ucommon;


{$R *.dfm}

procedure TfrmGauge.FormShow(Sender: TObject);
begin
  StopFlag:=False;
end;

procedure TfrmGauge.btnCancelClick(Sender: TObject);
begin
  StopFlag:=True;
end;

procedure TfrmGauge.FormActivate(Sender: TObject);
begin
//  inherited;

end;

procedure TfrmGauge.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//  inherited;

end;

procedure TfrmGauge.FormCreate(Sender: TObject);
begin
//  inherited;

end;

procedure TfrmGauge.FormDestroy(Sender: TObject);
begin
//  inherited;

end;

procedure TfrmGauge.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
//  inherited;

end;

end.
